home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
AESOBJC2.S
< prev
next >
Wrap
Text File
|
1993-03-26
|
2KB
|
77 lines
;*========================================================================
;*
;* AESFAST Public Domain GEM bindings.
;*
;*========================================================================
;*************************************************************************
;*
;* Object Library routines 2 of 2.
;*
;*************************************************************************
;-------------------------------------------------------------------------
; objc_offset
;-------------------------------------------------------------------------
globl _objc_offset
_objc_offset:
; .cargs #8,ptree.l,obj,px.l,py.l
ptree = 8
obj = 12
px = 14
py = 18
link a6,#-6 ; allocate intout[3].
move.l #$2C010301,d0 ; AControl 44,1,3,1
moveq.l #-6,d1 ; = intout
lea obj(a6),a1 ; -> intin
lea ptree(a6),a0 ; -> addrin
jsr aes_call
moveq.l #-6,d1
lea px(a6),a1
jmp (a0)
;-------------------------------------------------------------------------
; objc_edit
;-------------------------------------------------------------------------
globl _objc_edit
_objc_edit:
; .cargs #8,ptree.l,obj,char,idx,kind,pnewidx.l
ptree = 8
obj = 12
char = 14
idx = 16
kind = 18
pnewidx = 20
link a6,#-4 ; allocate intout[2].
move.l #$2E040201,d0 ; AControl 46,4,2,1
moveq.l #-4,d1 ; -> intout
lea obj(a6),a1 ; -> intin
lea ptree(a6),a0 ; -> addrin
jsr aes_call
move.w -4(a6),d0
move.l pnewidx(a6),a1
move.w -2(a6),(a1)
unlk a6
rts
; end of code